/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Bowers Development / AppMaker 2.1.sit / AppMaker 2.1 / Examples / TCL / Gadgets / zGadgetsDoc.cp

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 7a 47 61 64 67 65 | 74 73 44 6f 63 2e 63 70 |..zGadge|tsDoc.cp|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 0c eb 00 | 00 01 1e af 39 4a 88 af |........|....9J..|
|00000060| 39 4a 88 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |9J......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 2c ee 00 00 |........|....,...|
|00000080| 2f 2a 20 7a 47 61 64 67 | 65 74 73 44 6f 63 2e 63 |/* zGadg|etsDoc.c|
|00000090| 70 20 2d 2d 20 64 6f 63 | 75 6d 65 6e 74 20 6d 65 |p -- doc|ument me|
|000000a0| 74 68 6f 64 73 20 2a 2f | 0d 2f 2a 20 43 72 65 61 |thods */|./* Crea|
|000000b0| 74 65 64 20 32 2f 32 35 | 2f 39 37 20 31 30 3a 30 |ted 2/25|/97 10:0|
|000000c0| 33 20 50 4d 20 62 79 20 | 41 70 70 4d 61 6b 65 72 |3 PM by |AppMaker|
|000000d0| 20 2a 2f 0d 0d 2f 2a 09 | 57 65 20 72 65 63 6f 6d | */../*.|We recom|
|000000e0| 6d 65 6e 64 20 74 68 61 | 74 20 79 6f 75 20 6e 6f |mend tha|t you no|
|000000f0| 74 20 6d 6f 64 69 66 79 | 20 74 68 69 73 20 6d 6f |t modify| this mo|
|00000100| 64 75 6c 65 20 61 6e 64 | 20 69 6e 73 74 65 61 64 |dule and| instead|
|00000110| 20 6d 6f 64 69 66 79 09 | 09 2a 2f 0d 2f 2a 09 69 | modify.|.*/./*.i|
|00000120| 74 73 20 73 75 62 63 6c | 61 73 73 2c 20 47 61 64 |ts subcl|ass, Gad|
|00000130| 67 65 74 73 44 6f 63 2e | 20 20 54 68 65 20 27 7a |getsDoc.|  The 'z|
|00000140| 27 20 70 72 65 66 69 78 | 20 6f 6e 20 74 68 69 73 |' prefix| on this|
|00000150| 20 6d 6f 64 75 6c 65 20 | 6d 61 72 6b 73 09 2a 2f | module |marks.*/|
|00000160| 0d 2f 2a 09 61 20 6d 6f | 64 75 6c 65 20 77 68 69 |./*.a mo|dule whi|
|00000170| 63 68 20 69 73 20 6c 69 | 6b 65 6c 79 20 74 6f 20 |ch is li|kely to |
|00000180| 62 65 20 72 65 67 65 6e | 65 72 61 74 65 64 20 62 |be regen|erated b|
|00000190| 79 20 41 70 70 4d 61 6b | 65 72 20 61 66 74 65 72 |y AppMak|er after|
|000001a0| 20 79 6f 75 09 2a 2f 0d | 2f 2a 09 6d 61 6b 65 20 | you.*/.|/*.make |
|000001b0| 63 68 61 6e 67 65 73 20 | 74 6f 20 74 68 65 20 75 |changes |to the u|
|000001c0| 73 65 72 20 69 6e 74 65 | 72 66 61 63 65 2e 20 20 |ser inte|rface.  |
|000001d0| 54 68 65 20 6d 6f 64 75 | 6c 65 73 20 77 69 74 68 |The modu|les with|
|000001e0| 6f 75 74 20 74 68 65 20 | 27 7a 27 09 2a 2f 0d 2f |out the |'z'.*/./|
|000001f0| 2a 09 70 72 65 66 69 78 | 20 77 69 6c 6c 20 6e 6f |*.prefix| will no|
|00000200| 74 20 62 65 20 72 65 67 | 65 6e 65 72 61 74 65 64 |t be reg|enerated|
|00000210| 20 62 79 20 41 70 70 4d | 61 6b 65 72 20 75 6e 6c | by AppM|aker unl|
|00000220| 65 73 73 20 79 6f 75 20 | 64 65 6c 65 74 65 20 74 |ess you |delete t|
|00000230| 68 65 6d 2e 09 2a 2f 0d | 2f 2a 09 55 73 69 6e 67 |hem..*/.|/*.Using|
|00000240| 20 61 20 73 65 70 61 72 | 61 74 65 20 73 75 62 63 | a separ|ate subc|
|00000250| 6c 61 73 73 20 74 6f 20 | 6f 76 65 72 72 69 64 65 |lass to |override|
|00000260| 20 74 68 65 20 41 70 70 | 4d 61 6b 65 72 2d 67 65 | the App|Maker-ge|
|00000270| 6e 65 72 61 74 65 64 20 | 63 6f 64 65 09 2a 2f 0d |nerated |code.*/.|
|00000280| 2f 2a 09 6c 65 74 73 20 | 79 6f 75 20 72 65 67 65 |/*.lets |you rege|
|00000290| 6e 65 72 61 74 65 20 63 | 6f 64 65 20 77 69 74 68 |nerate c|ode with|
|000002a0| 6f 75 74 20 6c 6f 73 69 | 6e 67 20 79 6f 75 72 20 |out losi|ng your |
|000002b0| 68 61 6e 64 2d 63 6f 64 | 65 64 20 63 68 61 6e 67 |hand-cod|ed chang|
|000002c0| 65 73 2e 09 2a 2f 20 0d | 0d 23 69 6e 63 6c 75 64 |es..*/ .|.#includ|
|000002d0| 65 20 3c 43 6f 6d 6d 61 | 6e 64 73 2e 68 3e 0d 23 |e <Comma|nds.h>.#|
|000002e0| 69 6e 63 6c 75 64 65 20 | 3c 47 6c 6f 62 61 6c 2e |include |<Global.|
|000002f0| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 43 41 70 |h>.#incl|ude <CAp|
|00000300| 70 6c 69 63 61 74 69 6f | 6e 2e 68 3e 0d 23 69 6e |plicatio|n.h>.#in|
|00000310| 63 6c 75 64 65 20 3c 43 | 42 61 72 74 65 6e 64 65 |clude <C|Bartende|
|00000320| 72 2e 68 3e 0d 23 69 6e | 63 6c 75 64 65 20 3c 43 |r.h>.#in|clude <C|
|00000330| 44 61 74 61 46 69 6c 65 | 2e 68 3e 0d 23 69 6e 63 |DataFile|.h>.#inc|
|00000340| 6c 75 64 65 20 3c 43 44 | 65 73 6b 74 6f 70 2e 68 |lude <CD|esktop.h|
|00000350| 3e 0d 23 69 6e 63 6c 75 | 64 65 20 3c 43 45 72 72 |>.#inclu|de <CErr|
|00000360| 6f 72 2e 68 3e 0d 23 69 | 6e 63 6c 75 64 65 20 3c |or.h>.#i|nclude <|
|00000370| 43 57 69 6e 64 6f 77 2e | 68 3e 0d 23 69 6e 63 6c |CWindow.|h>.#incl|
|00000380| 75 64 65 20 3c 54 42 55 | 74 69 6c 69 74 69 65 73 |ude <TBU|tilities|
|00000390| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 22 43 6d |.h>.#inc|lude "Cm|
|000003a0| 64 43 6f 64 65 73 2e 68 | 22 0d 23 69 6e 63 6c 75 |dCodes.h|".#inclu|
|000003b0| 64 65 20 22 47 61 64 67 | 65 74 73 44 61 74 61 2e |de "Gadg|etsData.|
|000003c0| 68 22 0d 23 69 6e 63 6c | 75 64 65 20 22 41 62 6f |h".#incl|ude "Abo|
|000003d0| 75 74 44 69 61 6c 6f 67 | 2e 68 22 0d 23 69 6e 63 |utDialog|.h".#inc|
|000003e0| 6c 75 64 65 20 22 42 75 | 74 74 6f 6e 73 2e 68 22 |lude "Bu|ttons.h"|
|000003f0| 0d 23 69 6e 63 6c 75 64 | 65 20 22 53 6c 69 64 65 |.#includ|e "Slide|
|00000400| 72 73 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |rs.h".#i|nclude "|
|00000410| 50 72 6f 67 72 65 73 73 | 42 61 72 73 2e 68 22 0d |Progress|Bars.h".|
|00000420| 23 69 6e 63 6c 75 64 65 | 20 22 50 61 6c 6c 65 74 |#include| "Pallet|
|00000430| 74 65 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |te.h".#i|nclude "|
|00000440| 7a 47 61 64 67 65 74 73 | 44 6f 63 2e 68 22 0d 0d |zGadgets|Doc.h"..|
|00000450| 65 78 74 65 72 6e 09 43 | 41 70 70 6c 69 63 61 74 |extern.C|Applicat|
|00000460| 69 6f 6e 09 2a 67 41 70 | 70 6c 69 63 61 74 69 6f |ion.*gAp|plicatio|
|00000470| 6e 3b 09 2f 2a 20 54 68 | 65 20 61 70 70 6c 69 63 |n;./* Th|e applic|
|00000480| 61 74 69 6f 6e 20 2a 2f | 0d 65 78 74 65 72 6e 09 |ation */|.extern.|
|00000490| 43 42 61 72 74 65 6e 64 | 65 72 09 09 2a 67 42 61 |CBartend|er..*gBa|
|000004a0| 72 74 65 6e 64 65 72 3b | 09 2f 2a 20 54 68 65 20 |rtender;|./* The |
|000004b0| 6d 65 6e 75 20 68 61 6e | 64 6c 69 6e 67 20 6f 62 |menu han|dling ob|
|000004c0| 6a 65 63 74 20 2a 2f 0d | 65 78 74 65 72 6e 09 43 |ject */.|extern.C|
|000004d0| 45 72 72 6f 72 09 09 09 | 2a 67 45 72 72 6f 72 3b |Error...|*gError;|
|000004e0| 09 09 2f 2a 20 54 68 65 | 20 65 72 72 6f 72 20 68 |../* The| error h|
|000004f0| 61 6e 64 6c 69 6e 67 20 | 6f 62 6a 65 63 74 20 2a |andling |object *|
|00000500| 2f 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |/../*---|-------*|
|00000510| 2f 0d 76 6f 69 64 09 5a | 47 61 64 67 65 74 73 44 |/.void.Z|GadgetsD|
|00000520| 6f 63 3a 3a 49 47 61 64 | 67 65 74 73 44 6f 63 09 |oc::IGad|getsDoc.|
|00000530| 28 43 41 70 70 6c 69 63 | 61 74 69 6f 6e 09 2a 61 |(CApplic|ation.*a|
|00000540| 53 75 70 65 72 76 69 73 | 6f 72 2c 0d 09 09 09 09 |Supervis|or,.....|
|00000550| 09 09 09 09 09 09 20 42 | 6f 6f 6c 65 61 6e 09 09 |...... B|oolean..|
|00000560| 70 72 69 6e 74 61 62 6c | 65 29 0d 7b 0d 09 69 6e |printabl|e).{..in|
|00000570| 68 65 72 69 74 65 64 3a | 3a 49 44 6f 63 75 6d 65 |herited:|:IDocume|
|00000580| 6e 74 20 28 61 53 75 70 | 65 72 76 69 73 6f 72 2c |nt (aSup|ervisor,|
|00000590| 20 70 72 69 6e 74 61 62 | 6c 65 29 3b 0d 09 69 74 | printab|le);..it|
|000005a0| 73 44 61 74 61 20 3d 20 | 4e 55 4c 4c 3b 0d 0d 7d |sData = |NULL;..}|
|000005b0| 20 2f 2a 20 49 47 61 64 | 67 65 74 73 44 6f 63 20 | /* IGad|getsDoc |
|000005c0| 2a 2f 0d 0d 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*/../*--|--------|
|000005d0| 2a 2f 0d 76 6f 69 64 09 | 5a 47 61 64 67 65 74 73 |*/.void.|ZGadgets|
|000005e0| 44 6f 63 3a 3a 44 69 73 | 70 6f 73 65 09 09 28 76 |Doc::Dis|pose..(v|
|000005f0| 6f 69 64 29 0d 7b 0d 09 | 46 6f 72 67 65 74 4f 62 |oid).{..|ForgetOb|
|00000600| 6a 65 63 74 20 28 69 74 | 73 44 61 74 61 29 3b 0d |ject (it|sData);.|
|00000610| 09 69 74 73 46 69 6c 65 | 20 3d 20 4e 55 4c 4c 3b |.itsFile| = NULL;|
|00000620| 09 09 2f 2f 20 77 61 73 | 20 64 69 73 70 6f 73 65 |..// was| dispose|
|00000630| 64 20 62 79 20 46 6f 72 | 67 65 74 4f 62 6a 65 63 |d by For|getObjec|
|00000640| 74 20 28 69 74 73 44 61 | 74 61 29 0d 09 46 6f 72 |t (itsDa|ta)..For|
|00000650| 67 65 74 4f 62 6a 65 63 | 74 20 28 74 68 69 73 29 |getObjec|t (this)|
|00000660| 3b 0d 0d 7d 20 2f 2a 20 | 44 69 73 70 6f 73 65 20 |;..} /* |Dispose |
|00000670| 2a 2f 0d 0d 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*/../*--|--------|
|00000680| 2a 2f 0d 76 6f 69 64 09 | 5a 47 61 64 67 65 74 73 |*/.void.|ZGadgets|
|00000690| 44 6f 63 3a 3a 4e 65 77 | 46 69 6c 65 09 09 28 76 |Doc::New|File..(v|
|000006a0| 6f 69 64 29 0d 7b 0d 09 | 69 74 73 44 61 74 61 20 |oid).{..|itsData |
|000006b0| 3d 20 6e 65 77 20 43 47 | 61 64 67 65 74 73 44 61 |= new CG|adgetsDa|
|000006c0| 74 61 3b 0d 09 69 74 73 | 44 61 74 61 2d 3e 49 47 |ta;..its|Data->IG|
|000006d0| 61 64 67 65 74 73 44 61 | 74 61 20 28 74 68 69 73 |adgetsDa|ta (this|
|000006e0| 29 3b 0d 0d 09 42 75 69 | 6c 64 57 69 6e 64 6f 77 |);...Bui|ldWindow|
|000006f0| 73 20 28 29 3b 0d 0d 09 | 69 66 20 28 69 74 73 57 |s ();...|if (itsW|
|00000700| 69 6e 64 6f 77 20 21 3d | 20 4e 55 4c 4c 29 20 7b |indow !=| NULL) {|
|00000710| 0d 09 09 69 74 73 57 69 | 6e 64 6f 77 2d 3e 53 65 |...itsWi|ndow->Se|
|00000720| 6c 65 63 74 20 28 29 3b | 0d 09 7d 0d 0d 7d 20 2f |lect ();|..}..} /|
|00000730| 2a 20 4e 65 77 46 69 6c | 65 20 2a 2f 0d 0d 2f 2a |* NewFil|e */../*|
|00000740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 76 6f 69 |--------|--*/.voi|
|00000750| 64 20 09 5a 47 61 64 67 | 65 74 73 44 6f 63 3a 3a |d .ZGadg|etsDoc::|
|00000760| 4f 70 65 6e 46 69 6c 65 | 09 09 28 53 46 52 65 70 |OpenFile|..(SFRep|
|00000770| 6c 79 09 2a 6d 61 63 53 | 46 52 65 70 6c 79 29 0d |ly.*macS|FReply).|
|00000780| 7b 0d 09 53 74 72 36 33 | 09 09 09 74 68 65 4e 61 |{..Str63|...theNa|
|00000790| 6d 65 3b 0d 0d 09 69 74 | 73 44 61 74 61 20 3d 20 |me;...it|sData = |
|000007a0| 6e 65 77 20 43 47 61 64 | 67 65 74 73 44 61 74 61 |new CGad|getsData|
|000007b0| 3b 0d 09 69 74 73 44 61 | 74 61 2d 3e 49 47 61 64 |;..itsDa|ta->IGad|
|000007c0| 67 65 74 73 44 61 74 61 | 20 28 74 68 69 73 29 3b |getsData| (this);|
|000007d0| 0d 09 69 74 73 44 61 74 | 61 2d 3e 53 46 53 70 65 |..itsDat|a->SFSpe|
|000007e0| 63 69 66 79 20 28 6d 61 | 63 53 46 52 65 70 6c 79 |cify (ma|cSFReply|
|000007f0| 29 3b 0d 09 69 74 73 44 | 61 74 61 2d 3e 4f 70 65 |);..itsD|ata->Ope|
|00000800| 6e 44 61 74 61 20 28 66 | 73 52 64 57 72 50 65 72 |nData (f|sRdWrPer|
|00000810| 6d 29 3b 0d 09 69 74 73 | 46 69 6c 65 20 3d 20 69 |m);..its|File = i|
|00000820| 74 73 44 61 74 61 3b 0d | 0d 09 42 75 69 6c 64 57 |tsData;.|..BuildW|
|00000830| 69 6e 64 6f 77 73 20 28 | 29 3b 0d 0d 09 69 74 73 |indows (|);...its|
|00000840| 46 69 6c 65 2d 3e 47 65 | 74 4e 61 6d 65 20 28 74 |File->Ge|tName (t|
|00000850| 68 65 4e 61 6d 65 29 3b | 0d 09 69 66 20 28 69 74 |heName);|..if (it|
|00000860| 73 57 69 6e 64 6f 77 20 | 21 3d 20 4e 55 4c 4c 29 |sWindow |!= NULL)|
|00000870| 20 7b 0d 09 09 69 74 73 | 57 69 6e 64 6f 77 2d 3e | {...its|Window->|
|00000880| 53 65 74 54 69 74 6c 65 | 20 28 74 68 65 4e 61 6d |SetTitle| (theNam|
|00000890| 65 29 3b 0d 09 09 69 74 | 73 57 69 6e 64 6f 77 2d |e);...it|sWindow-|
|000008a0| 3e 53 65 6c 65 63 74 20 | 28 29 3b 0d 09 7d 0d 0d |>Select |();..}..|
|000008b0| 7d 20 2f 2a 20 4f 70 65 | 6e 46 69 6c 65 20 2a 2f |} /* Ope|nFile */|
|000008c0| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |../*----|------*/|
|000008d0| 0d 76 6f 69 64 09 5a 47 | 61 64 67 65 74 73 44 6f |.void.ZG|adgetsDo|
|000008e0| 63 3a 3a 42 75 69 6c 64 | 57 69 6e 64 6f 77 73 09 |c::Build|Windows.|
|000008f0| 09 28 76 6f 69 64 29 0d | 7b 0d 09 43 57 69 6e 64 |.(void).|{..CWind|
|00000900| 6f 77 09 09 09 2a 6d 61 | 69 6e 57 69 6e 64 6f 77 |ow...*ma|inWindow|
|00000910| 3b 0d 0d 09 6d 61 69 6e | 57 69 6e 64 6f 77 20 3d |;...main|Window =|
|00000920| 20 6e 65 77 20 43 42 75 | 74 74 6f 6e 73 3b 0d 09 | new CBu|ttons;..|
|00000930| 69 74 73 57 69 6e 64 6f | 77 20 3d 20 6d 61 69 6e |itsWindo|w = main|
|00000940| 57 69 6e 64 6f 77 3b 0d | 09 28 28 43 42 75 74 74 |Window;.|.((CButt|
|00000950| 6f 6e 73 20 2a 29 6d 61 | 69 6e 57 69 6e 64 6f 77 |ons *)ma|inWindow|
|00000960| 29 2d 3e 49 42 75 74 74 | 6f 6e 73 20 28 74 68 69 |)->IButt|ons (thi|
|00000970| 73 2c 20 69 74 73 44 61 | 74 61 29 3b 0d 09 69 74 |s, itsDa|ta);..it|
|00000980| 73 4d 61 69 6e 50 61 6e | 65 20 3d 20 28 28 43 42 |sMainPan|e = ((CB|
|00000990| 75 74 74 6f 6e 73 20 2a | 29 6d 61 69 6e 57 69 6e |uttons *|)mainWin|
|000009a0| 64 6f 77 29 2d 3e 69 74 | 73 4d 61 69 6e 50 61 6e |dow)->it|sMainPan|
|000009b0| 65 3b 0d 0d 09 69 74 73 | 53 6c 69 64 65 72 73 20 |e;...its|Sliders |
|000009c0| 3d 20 6e 65 77 20 43 53 | 6c 69 64 65 72 73 3b 0d |= new CS|liders;.|
|000009d0| 09 69 74 73 53 6c 69 64 | 65 72 73 2d 3e 49 53 6c |.itsSlid|ers->ISl|
|000009e0| 69 64 65 72 73 20 28 74 | 68 69 73 2c 20 69 74 73 |iders (t|his, its|
|000009f0| 44 61 74 61 29 3b 0d 0d | 09 69 74 73 50 72 6f 67 |Data);..|.itsProg|
|00000a00| 72 65 73 73 42 61 72 73 | 20 3d 20 6e 65 77 20 43 |ressBars| = new C|
|00000a10| 50 72 6f 67 72 65 73 73 | 42 61 72 73 3b 0d 09 69 |Progress|Bars;..i|
|00000a20| 74 73 50 72 6f 67 72 65 | 73 73 42 61 72 73 2d 3e |tsProgre|ssBars->|
|00000a30| 49 50 72 6f 67 72 65 73 | 73 42 61 72 73 20 28 74 |IProgres|sBars (t|
|00000a40| 68 69 73 2c 20 69 74 73 | 44 61 74 61 29 3b 0d 0d |his, its|Data);..|
|00000a50| 09 69 74 73 50 61 6c 6c | 65 74 74 65 20 3d 20 6e |.itsPall|ette = n|
|00000a60| 65 77 20 43 50 61 6c 6c | 65 74 74 65 3b 0d 09 69 |ew CPall|ette;..i|
|00000a70| 74 73 50 61 6c 6c 65 74 | 74 65 2d 3e 49 50 61 6c |tsPallet|te->IPal|
|00000a80| 6c 65 74 74 65 20 28 74 | 68 69 73 2c 20 69 74 73 |lette (t|his, its|
|00000a90| 44 61 74 61 29 3b 0d 0d | 0d 7d 20 2f 2a 20 42 75 |Data);..|.} /* Bu|
|00000aa0| 69 6c 64 57 69 6e 64 6f | 77 73 20 2a 2f 0d 0d 2f |ildWindo|ws */../|
|00000ab0| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 2f 0d 42 6f |*-------|---*/.Bo|
|00000ac0| 6f 6c 65 61 6e 09 5a 47 | 61 64 67 65 74 73 44 6f |olean.ZG|adgetsDo|
|00000ad0| 63 3a 3a 44 6f 53 61 76 | 65 09 09 28 76 6f 69 64 |c::DoSav|e..(void|
|00000ae0| 29 0d 7b 0d 09 69 66 20 | 28 69 74 73 46 69 6c 65 |).{..if |(itsFile|
|00000af0| 20 3d 3d 20 4e 55 4c 4c | 29 20 7b 0d 09 09 72 65 | == NULL|) {...re|
|00000b00| 74 75 72 6e 20 28 44 6f | 53 61 76 65 46 69 6c 65 |turn (Do|SaveFile|
|00000b10| 41 73 20 28 29 29 3b 0d | 09 7d 20 65 6c 73 65 20 |As ());.|.} else |
|00000b20| 7b 0d 09 09 69 66 20 28 | 69 74 73 44 61 74 61 2d |{...if (|itsData-|
|00000b30| 3e 53 61 76 65 20 28 29 | 29 20 7b 0d 09 09 09 64 |>Save ()|) {....d|
|00000b40| 69 72 74 79 20 3d 20 46 | 41 4c 53 45 3b 0d 09 09 |irty = F|ALSE;...|
|00000b50| 09 72 65 74 75 72 6e 20 | 28 54 52 55 45 29 3b 0d |.return |(TRUE);.|
|00000b60| 09 09 7d 20 65 6c 73 65 | 20 7b 0d 09 09 09 72 65 |..} else| {....re|
|00000b70| 74 75 72 6e 20 28 46 41 | 4c 53 45 29 3b 0d 09 09 |turn (FA|LSE);...|
|00000b80| 7d 0d 09 7d 0d 7d 20 2f | 2a 20 44 6f 53 61 76 65 |}..}.} /|* DoSave|
|00000b90| 20 2a 2f 0d 0d 2f 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d | */../*-|--------|
|00000ba0| 2d 2a 2f 0d 42 6f 6f 6c | 65 61 6e 09 5a 47 61 64 |-*/.Bool|ean.ZGad|
|00000bb0| 67 65 74 73 44 6f 63 3a | 3a 44 6f 53 61 76 65 41 |getsDoc:|:DoSaveA|
|00000bc0| 73 09 09 28 53 46 52 65 | 70 6c 79 09 2a 6d 61 63 |s..(SFRe|ply.*mac|
|00000bd0| 53 46 52 65 70 6c 79 29 | 0d 7b 0d 09 69 66 20 28 |SFReply)|.{..if (|
|00000be0| 69 74 73 44 61 74 61 2d | 3e 53 61 76 65 41 73 20 |itsData-|>SaveAs |
|00000bf0| 28 6d 61 63 53 46 52 65 | 70 6c 79 29 29 20 7b 0d |(macSFRe|ply)) {.|
|00000c00| 09 09 69 74 73 46 69 6c | 65 20 3d 20 69 74 73 44 |..itsFil|e = itsD|
|00000c10| 61 74 61 3b 0d 09 09 69 | 66 20 28 69 74 73 57 69 |ata;...i|f (itsWi|
|00000c20| 6e 64 6f 77 20 21 3d 20 | 4e 55 4c 4c 29 20 7b 0d |ndow != |NULL) {.|
|00000c30| 09 09 09 69 74 73 57 69 | 6e 64 6f 77 2d 3e 53 65 |...itsWi|ndow->Se|
|00000c40| 74 54 69 74 6c 65 20 28 | 6d 61 63 53 46 52 65 70 |tTitle (|macSFRep|
|00000c50| 6c 79 2d 3e 66 4e 61 6d | 65 29 3b 0d 09 09 7d 0d |ly->fNam|e);...}.|
|00000c60| 09 09 64 69 72 74 79 20 | 3d 20 46 41 4c 53 45 3b |..dirty |= FALSE;|
|00000c70| 0d 09 09 72 65 74 75 72 | 6e 20 28 54 52 55 45 29 |...retur|n (TRUE)|
|00000c80| 3b 0d 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 72 65 |;..} els|e {...re|
|00000c90| 74 75 72 6e 20 28 46 41 | 4c 53 45 29 3b 0d 09 7d |turn (FA|LSE);..}|
|00000ca0| 0d 0d 7d 20 2f 2a 20 44 | 6f 53 61 76 65 41 73 20 |..} /* D|oSaveAs |
|00000cb0| 2a 2f 0d 0d 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*/../*--|--------|
|00000cc0| 2a 2f 0d 76 6f 69 64 09 | 5a 47 61 64 67 65 74 73 |*/.void.|ZGadgets|
|00000cd0| 44 6f 63 3a 3a 44 6f 52 | 65 76 65 72 74 09 09 28 |Doc::DoR|evert..(|
|00000ce0| 76 6f 69 64 29 0d 7b 0d | 09 69 74 73 44 61 74 61 |void).{.|.itsData|
|00000cf0| 2d 3e 52 65 76 65 72 74 | 20 28 29 3b 0d 09 64 69 |->Revert| ();..di|
|00000d00| 72 74 79 20 3d 20 46 41 | 4c 53 45 3b 0d 0d 7d 20 |rty = FA|LSE;..} |
|00000d10| 2f 2a 20 44 6f 52 65 76 | 65 72 74 20 2a 2f 0d 0d |/* DoRev|ert */..|
|00000d20| 0d 2f 2f 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 76 6f |.//-----|-----.vo|
|00000d30| 69 64 09 5a 47 61 64 67 | 65 74 73 44 6f 63 3a 3a |id.ZGadg|etsDoc::|
|00000d40| 44 6f 49 6e 76 6f 6b 65 | 41 62 6f 75 74 20 28 29 |DoInvoke|About ()|
|00000d50| 0d 7b 0d 7d 0d 0d 2f 2a | 20 7a 47 61 64 67 65 74 |.{.}../*| zGadget|
|00000d60| 73 44 6f 63 2e 63 70 20 | 2a 2f 0d 00 00 00 00 00 |sDoc.cp |*/......|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000d90| 50 72 6f 67 72 65 73 73 | 42 61 72 2e 49 6e 69 74 |Progress|Bar.Init|
|00000da0| 4d 65 6d 62 65 72 0d 09 | 69 6d 70 6f 72 74 09 64 |Member..|import.d|
|00000db0| 0e 7a 47 61 64 67 65 74 | 73 44 6f 63 2e 63 70 44 |.zGadget|sDoc.cpD|
|00000dc0| 02 00 00 00 54 45 58 54 | 4b 41 48 4c 00 00 64 f8 |....TEXT|KAHL..d.|
|00000dd0| 00 00 54 45 58 54 4b 41 | 48 4c 00 00 64 f8 63 c0 |..TEXTKA|HL..d.c.|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 af 39 12 48 00 00 | 0c eb 00 00 01 1e 25 6e |...9.H..|......%n|
|00000e00| 61 6d 65 25 42 61 72 20 | 3d 20 28 43 41 4d 42 75 |ame%Bar |= (CAMBu|
|00000e10| 74 74 6f 6e 20 2a 29 46 | 69 6e 64 50 61 6e 65 42 |tton *)F|indPaneB|
|00000e20| 79 49 44 20 28 25 49 44 | 25 29 3b 0d 25 0d 09 64 |yID (%ID|%);.%..d|
|00000e30| 69 64 47 65 6e 20 3d 20 | 74 72 75 65 0d 65 6e 64 |idGen = |true.end|
|00000e40| 20 49 6e 69 74 4d 65 6d | 62 65 72 0d 0d 2f 2f 2d | InitMem|ber..//-|
|00000e50| 2d 2d 2d 2d 0d 70 72 6f | 63 65 64 75 72 65 20 50 |----.pro|cedure P|
|00000e60| 72 6f 67 72 65 73 73 42 | 61 72 2e 47 65 74 53 65 |rogressB|ar.GetSe|
|00000e70| 74 44 65 63 6c 0d 09 69 | 6d 70 6f 72 74 09 64 69 |tDecl..i|mport.di|
|00000e80| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000e90| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+